Sub ׸()

   Dim ʵ As PivotField
   Dim ׸ As PivotItem

   On Error Resume Next

   For Each ʵ In ActiveSheet.PivotTables(1).PivotFields

       For Each ׸ In ʵ.PivotItems

           ׸.Delete

       Next

   Next

End Sub